﻿Public Class CareGiver
    Inherits GenericPerson
    Private m_iSecurityLevel As Integer
    Private m_sPassHash As String
    Private m_sUserName As String
    Sub New(Optional ByVal iSecurity As Integer = 0)
        Me.m_iSecurityLevel = Math.Max(Math.Min(iSecurity, ACCESS_ADMINISTRATOR), ACCESS_GUEST)
    End Sub
    Property SecurityLevel() As Integer
        Get
            Return Me.m_iSecurityLevel
        End Get
        Set(ByVal value As Integer)
            Me.m_iSecurityLevel = value
        End Set
    End Property
    Property PasswordHash() As String
        Get
            Return Me.m_sPassHash
        End Get
        Set(ByVal value As String)
            Me.m_sPassHash = value
        End Set
    End Property
    Property UserName() As String
        Get
            Return Me.m_sUserName
        End Get
        Set(ByVal value As String)
            Me.m_sUserName = value
        End Set
    End Property
End Class
